home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / r / real_3d / real3dv3.3b.dms / real3dv3.3b.adf / Rexx.LZH / Rexx / test.rexx next >
OS/2 REXX Batch file  |  1995-01-05  |  287b  |  28 lines
  1.  
  2. /* 
  3.  * Simple animation moving selected objects
  4.  */
  5.  
  6. ADDRESS REAL3D0
  7.  
  8. do i = 1 to 100
  9.     0 O_GETROOT
  10.     0.01 0 0 0 M_MOVE
  11.     REFRESH
  12. end
  13.  
  14. 0 O_GETROOT
  15. -1.0 0 0 0 M_MOVE
  16. REFRESH
  17.  
  18. do i = 1 to 10
  19.     0 O_GETROOT
  20.     0.1 0 0 0 M_MOVE
  21.     RENDER
  22. end
  23.  
  24. 0 O_GETROOT
  25. -1.0 0 0 0 M_MOVE
  26. RENDER
  27.  
  28.